home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / otherAudreye.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  25.6 KB  |  176 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6.     Responder
  7. [17@]
  8. WWColorWell
  9. NXColorWell
  10. Control
  11. /set audreyeII(color) {%f %f %f}; synchWithScene
  12. audreyeII(color)
  13. WWThumbWheel
  14. PAThumbWheel
  15. WWThumbWheelCell
  16. PAThumbWheelCell
  17. ActionCell
  18.     Helvetica
  19. *set audreyeII(thetaMax) %f; synchWithScene
  20. audreyeII(thetaMax)
  21. WWTextField
  22.     TextField
  23. WWTextFieldCell
  24. TextFieldCell
  25. -360.0
  26. thetaMax
  27. *set eyeBall(leftRightR) %f; synchWithScene
  28. eyeBall(leftRightR)
  29. 'set eyeBall(upDownR) %f; synchWithScene
  30. eyeBall(upDownR)
  31. rotate
  32. WWSlider
  33. Slider
  34. WWSliderCell
  35. SliderCell
  36. dddf@d@
  37. NXImage
  38. NXCachedImageRep
  39. NXImageRep
  40. iisssssS
  41. iiiiiiS
  42. [3984c]
  43. (set audreyeII(xScale) %f; synchWithScene
  44. audreyeII(xScale)
  45. -10.00
  46. (set audreyeII(yScale) %f; synchWithScene
  47. audreyeII(yScale)
  48. (set audreyeII(zScale) %f; synchWithScene
  49. audreyeII(zScale)
  50. =set audreyeII(volumePreservingScaleFactor) %f; synchWithScene
  51. &audreyeII(volumePreservingScaleFactor)
  52. [1328c]
  53. scale
  54. #set blink(downU) %f; synchWithScene
  55. blink(downU)
  56. downU
  57. !set blink(upU) %f; synchWithScene
  58. blink(upU)
  59. &set blink(thetaMax) %f; synchWithScene
  60. blink(thetaMax)
  61. )set eyeBall(bloodShot) %f; synchWithScene
  62. eyeBall(bloodShot)
  63.     bloodShot
  64. )set eyeBall(pupilSize) %f; synchWithScene
  65. eyeBall(pupilSize)
  66.     pupilSize
  67. Matrix
  68. @:@iiii
  69. ButtonCell
  70. Radio
  71. control_stop
  72. control_stopH
  73. control_play
  74. control_playH
  75. ff@@#::s
  76. NXradio
  77. NXradioH
  78. -set sideToSide(howManySeconds) %f; updateView
  79. sideToSide(howManySeconds)
  80. sideToSide
  81. )set dilate(howManySeconds) %f; updateView
  82. dilate(howManySeconds)
  83. dilate
  84. (set blink(howManySeconds) %f; updateView
  85. blink(howManySeconds)
  86. blink
  87. ,set constrict(howManySeconds) %f; updateView
  88. constrict(howManySeconds)
  89.     constrict
  90. 1set eyeBall(irisColor) {%f %f %f}; synchWithScene
  91. eyeBall(irisColor)
  92.     irisColor
  93. set yT %f; updateView
  94. set zT %f; updateView
  95. set  xT %f; updateView
  96. set xT %f; updateView
  97.     translate
  98. set yR %f; updateView
  99. set zR %f; updateView
  100. set xR %f; updateView
  101. (set eyeBall(irisSize) %f; synchWithScene
  102. eyeBall(irisSize)
  103. irisSize
  104. WWButton
  105. Button
  106. WWButtonCell
  107. Helvetica-Bold$
  108. "set goCurrentMinMaxCurrent(min) %f
  109. goCurrentMinMaxCurrent(min)
  110. 'set goCurrentMinMaxCurrent(duration) %f
  111.  goCurrentMinMaxCurrent(duration)
  112. duration
  113. &set goCurrentMinMaxCurrent(varName) %s
  114. goCurrentMinMaxCurrent(varName)
  115. varName
  116. "set goCurrentMinMaxCurrent(max) %f
  117. goCurrentMinMaxCurrent(max)
  118. weight
  119. (set goCurrentMinMaxCurrent(agentName) %s
  120. !goCurrentMinMaxCurrent(agentName)
  121.     agentName
  122.     openClose
  123. kset goCurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  124. set goCurrentMinMaxCurrent(agentName) openCloseR;
  125.     leftRight
  126. kset goCurrentMinMaxCurrent(varName) eyeBall(leftRightR);
  127. set goCurrentMinMaxCurrent(agentName) leftRightR;
  128. upDown
  129. eset goCurrentMinMaxCurrent(varName) eyeBall(upDownR);
  130. set goCurrentMinMaxCurrent(agentName) upDownR;
  131. tset goCurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  132. set goCurrentMinMaxCurrent(agentName) eyeBall(openCloseR);
  133.     WWTTTimer
  134. @:diciffffc
  135. _sideToSideMotorProgram $sideToSide(varName) $sideToSide(u) $sideToSide(uA) $sideToSide(uB) $sideToSide(initial) $sideToSide(min) $sideToSide(max) $sideToSide(agentName); 
  136. set sideToSide(uIncr) [expr {1.0/(($sideToSide(howManySeconds) * $scene(ticksPerSecond)) - 1)}];
  137. set sideToSide(u) [expr $sideToSide(u) + ($sideToSide(uIncr) * [synchWithScene])]
  138. preSideToSide
  139. #postSideToSide $sideToSide(initial)
  140. $sideToSide(u) < 1
  141. dilateMotorProgram $dilate(u) $dilate(pupilMin) $dilate(extent); 
  142. set dilate(u) [expr $dilate(u) + ($dilate(uIncr) * [synchWithScene])];  
  143.     preDilate
  144. postDilate $dilate(pupilMax)
  145. $dilate(u) <= 1
  146. WindowTemplate
  147. iiii***@s@
  148. Audrey EyeBall controls
  149. Panel
  150. reusable behavior
  151. blinkMotorProgram $blink(u) $blink(downU) $blink(upU) $blink(initialTheta) $blink(thetaMax); 
  152. set blink(u) [expr $blink(u) + ($blink(uIncr) * [synchWithScene])];  
  153. preBlink
  154. postBlink $blink(initialTheta)
  155. $blink(u) <= 1
  156. constrictMotorProgram $constrict(u) $constrict(pupilMax) $constrict(extent); 
  157. set constrict(u) [expr $constrict(u) + ($constrict(uIncr) * [synchWithScene])];  
  158. preConstrict
  159. postConstrict $dilate(pupilMin)
  160. $constrict(u) <= 1
  161. controlsX
  162. File's OwnerX
  163. [25@]
  164. IBOutletConnector
  165. IBConnector
  166. controlPanel
  167. IBControlConnector
  168. evalUsingColor:
  169. evalUsingFloatValue:
  170. stopButton
  171. startButton
  172. interp
  173. stop:
  174. start:
  175. accessoryPanel0
  176.